* src/lisp.h (FOR_EACH_TAIL_INTERNAL): Faster node comparison.

diff --git a/src/lisp.h b/src/lisp.h
index 1ad89fc46896da83228ff7038e11ac77da36b31b..b00f3f7e2e69e143e33e201870336632cbb599bb 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -5515,7 +5515,7 @@ struct for_each_tail_internal
          || ((check_quit) ? maybe_quit () : (void) 0, 0 < --li.n)      \
          || (li.q = li.n = li.max <<= 1, li.n >>= USHRT_WIDTH,         \
              li.tortoise = (tail), false))                             \
-        && EQ (tail, li.tortoise))                                     \
+        && BASE_EQ (tail, li.tortoise))                                \
        ? (cycle) : (void) 0))
 
 /* Do a `for' loop over alist values.  */